home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_1[cbm_1983].nbz / craps (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.8 KB  |  141 lines
  1. 5 REM CRAPS
  2. 10 VV=212*256
  3. 15 POKE VV+24,15
  4. 20 POKE 53281, 1
  5. 25 POKEVV+6,0
  6. 30 PRINT"[147][152]"
  7. 40 PRINT"   THE GAME OF CRAPS IS PLAYED WITH"
  8. 50 PRINT"TWO DICE. FIRST YOU BET AND THEN YOU
  9. 60 [153]"THROW. IF YOU GET A SCORE OF 7 OR 11,
  10. 70 PRINT"YOU WIN. IF YOU THROW 2,3 OR 12, YOU
  11. 80 [153]"LOSE. IF YOU THROW ANY OTHER NUMBER,
  12. 90 PRINT"YOU DON'T WIN OR LOSE STRAIGHT AWAY:
  13. 100 [153]"YOU KEEP ON THROWING UNTIL YOU
  14. 110 PRINT"THROW THE SAME AS YOU DID FIRST
  15. 120 [153]"TIME ( AND WIN)
  16. 130 PRINT"OR
  17. 140 [153]"THROW A 7 ( AND LOSE).
  18. 150 PRINT
  19. 160 PRINT"HIT ANY KEY TO CONTINUE
  20. 240 [161] A$
  21. 250 [139] A$[178]""[167] 240
  22. 255 [143] SET A$,B$,C$ TO LINES OF DICE PICTURE
  23. 260 A$[178]"         (null)TANTANTANTANTANTANTANRIGHT$     (null)TANTANTANTANTANTANTANRIGHT$"
  24. 270 B$[178]"         (null)      (null)     (null)       (null)"
  25. 280 C$[178]"         MID$TANTANTANTANTANTANTAN(null)     MID$TANTANTANTANTANTANTAN(null)PRINT#"
  26. 285 [143] GET STARTING CAPITAL
  27. 290 [153]"LOAD"
  28. 300 [133]"   STARTING CAPITAL";C
  29. 305 [143] NOW START NEXT BET
  30. 310 [153]"   HIT ANY KEY FOR NEXT BET"
  31. 330 [161] R$
  32. 340 [139] R$[178]""[167] 330
  33. 350 [153]"   YOUR CAPITAL NOW IS";C
  34. 370 [133]"   HOW MUCH DO YOU BET";W
  35. 390 [139] W[179][178]C [167] 420
  36. 400 [153]"   YOU CAN'T AFFORD IT"
  37. 410 [137]310
  38. 415 [143] ORGANISE FIRST THROW
  39. 420 [153]"LOAD   FIRST THROWCLOSE(BET=";W;")"
  40. 430 [153]"";A$
  41. 440 [129]J[178]1[164]5
  42. 450 [153]B$
  43. 460 [130]J
  44. 470 [153]C$
  45. 475 [143] SHOW 10-59 DIFFERENT FACE PAIRS
  46. 480 Q[178][181](10[170]50[172][187](0))
  47. 490 [129]Z[178]1[164]Q
  48. 500 A[178][181](1[170]6[172][187](0))
  49. 510 B[178][181](1[170]6[172][187](0))
  50. 515 [143] SOUND A NOTE WHICH DEPENDS ON A AND B
  51. 520 [151] VV[170]4,0
  52. 525 [151] VV[170]5,7
  53. 530 [151] VV[170]1,10[170](A[172]A[170]2[172]B[172]B)
  54. 535 [151] VV[170]4,33
  55. 540 [153]"";A;"";B
  56. 545 [143] WAIT A BIT
  57. 550 [129] M[178]1 [164] 30
  58. 555 [130] M
  59. 560 [130] Z
  60. 565 [143] STOP SOUND
  61. 570 [151] VV[170]4,0
  62. 585 [143] USE LAST VALUES OF A,B
  63. 590 T[178]A[170]B
  64. 595 [143] JUMP IF PLAYER WINS OUTRIGHT
  65. 600 [139] T[178]7 [167] 1000
  66. 610 [139] T[178]11 [167] 1000
  67. 615 [143] JUMP IF PLAYER LOSES OUTRIGHT
  68. 620 [139] T[178]2 [167] 1100
  69. 630 [139] T[178]3 [167] 1100
  70. 640 [139] T[178]12 [167] 1100
  71. 650 [153]
  72. 660 [153]
  73. 670 [153]
  74. 680 [153]"   YOU HAVE TO MAKE";T;" BEFORE 7"
  75. 700 [153]"   HIT ANY KEY TO GO ON"
  76. 710 [161] R$
  77. 720 [139] R$ [178] "" [167] 710
  78. 730 [153]"LOAD   NEXT THROW(BET=";W;")"
  79. 740 [153]"   MAKING";T
  80. 750 [153]""
  81. 760 [153] A$
  82. 770 [129]J[178]1[164]5
  83. 780 [153] B$
  84. 790 [130] J
  85. 800 [153] C$
  86. 805 [143] SHOW 10-19 DIFFERENT FACE PAIRS
  87. 810 Q[178][181](10[170]10[172][187](0))
  88. 820 [129] Z[178]1 [164] Q
  89. 830 A[178][181](1[170]6[172][187](0))
  90. 840 B[178][181](1[170]6[172][187](0))
  91. 845 [151] VV[170]4,0
  92. 850 [151] VV[170]5,7
  93. 855 [151] VV[170]1,10[170]3[172](A[172]A[170]B[172]B)
  94. 860 [151] VV[170]4,33
  95. 870 [153]"";A;"";B
  96. 880 [129]M[178]1[164]30
  97. 890 [130] M
  98. 900 [130] Z
  99. 905 [143] SILENCE
  100. 910 [151] VV[170]4,0
  101. 925 [143] IF A+B=T PLAYER WINS
  102. 930 [139] A[170]B[178]T [167] 1000
  103. 935 [143] IF A+B=7 PLAYER LOSES
  104. 940 [139] A[170]B[178]7 [167] 1100
  105. 945 [143] ELSE PLAYER THROWS AGAIN
  106. 950 [137]700
  107. 990 [143] PLAYER WINS
  108. 1000 [153]"   YOU WIN"
  109. 1005 [143] ADD WINNINGS TO CAPITAL
  110. 1010 C[178]C[170]W
  111. 1015 [143] PAEAN OF PRAISE
  112. 1020 [151] VV[170]1,110
  113. 1025 [151] VV[170]5,8
  114. 1030 [151] VV[170]6,0
  115. 1040 [129]J[178]1[164] 8
  116. 1050 [151] VV[170]4,33
  117. 1060 [129] K[178]1 [164] 70
  118. 1065 [130] K
  119. 1070 [151]VV[170]4,0
  120. 1075 [129] K[178]1[164]80
  121. 1080 [130] K
  122. 1085 [130]J
  123. 1095 [137]310
  124. 1100 [143] PLAYER LOSES
  125. 1110 [153]"   YOU LOSE"
  126. 1115 [143] CHIRP OF TRIUMPH"
  127. 1120 POKE VV+5,0
  128. 1125 POKE VV+6,240
  129. 1130 POKE VV+1,100
  130. 1140 POKE VV+4,33
  131. 1150 FORJ=100 TO 5 STEP -0.3
  132. 1160 POKE VV+1,J
  133. 1170 NEXT J
  134. 1180 POKE VV+4,0
  135. 1190 POKE VV+6,0
  136. 1195 REM TAKE LOSS FROM CAPITAL
  137. 1200 C=C-W
  138. 1210 IF C>0 THEN 310
  139. 1220 PRINT"   YOU ARE NOW BROKE"
  140. 1230 STOP
  141.